%REM The following code is an abbreviated version of code in CustomGetterTest. Custom Getters are used in serialization - conversion to JSON. This code calls a getName(order as Boolean) function, writing the result to the "name" label in the resulting JSON object. %END REM Dim person as New Person("John", "Doe", 42) Dim helper as New JsonConversionHelper() Dim nameGetter as New JsonGetterConverter() Dim jsonObj as JsonObject Call nameGetter.forGetter("getName").withLiteralParam(true) Set jsonObj = helper.withCustomConverter("name", nameGetter).toJson(person) |